home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / TF.M < prev    next >
Encoding:
Text File  |  1989-03-10  |  1.5 KB  |  41 lines
  1. MODULE TF; (*$E MOS *)
  2.  
  3. IMPORT Files, Text, Binary, Terminal,NumberIO;
  4. FROM StrConv IMPORT CardToStr;
  5. FROM Terminal IMPORT WriteString, WriteLn;
  6.  
  7. VAR a:CARDINAL;
  8.     ok:BOOLEAN;
  9.     ch:CHAR;
  10.     f:Files.File;
  11.     s:ARRAY [0..79] OF CHAR;
  12.  
  13. BEGIN
  14.   Files.Open (f,'MODULA.ERR',Files.readOnly);
  15.   IF Files.State (f) # 0 THEN
  16.     Files.GetStateMsg (Files.State(f),s);
  17.     WriteLn;
  18.     WriteString (s);
  19.     RETURN
  20.   END;
  21.   WriteString ('Size: ');
  22.   WriteString (CardToStr (Binary.FileSize (f),0));
  23.   WriteLn;
  24.   WriteString ('Pos: ');
  25.   WriteString (CardToStr (Binary.FilePos (f),0));
  26.   WriteLn;
  27.   NumberIO.ReadCard (f, a, ok);
  28.   WriteString ('Numb: ');
  29.   WriteString (CardToStr (a,0));
  30.   WriteLn;
  31.   Text.ReadString (f,s);
  32.   WriteString (s);
  33.   WriteLn;
  34.   WriteString ('Pos: ');
  35.   WriteString (CardToStr (Binary.FilePos (f),0));
  36.   WriteLn;
  37.   Terminal.Read(s[0])
  38. END TF.
  39.  
  40. (* $FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$000001DD$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8$FFFBC1B8Ç$0000030DT.......T.......T.......T.......T.......T.......T.......T.......T.......T.......$FFF6B07E$FFF6B07E$FFF6B07E$000002BE$FFF6B07E$FFF6B07E$FFF6B07E$FFF6B07E$FFF6B07E$FFF6B07E$FFF6B07E$FFF6B07E$FFF6B07E$FFF6B07E$FFF6B07E$FFF6B07EÉÇÇ*)
  41.